A systematic review of positive interactions and the niche in deserts.

Literature search

library(tidyverse)
library(DT)

#Search terms####
search.terms <- read_csv("data/search.terms.csv")
datatable(search.terms)

total.lit <- search.terms %>% filter(search != "final")
total.lit

## # A tibble: 6 × 3
##   search                             terms  hits
##    <chr>                             <chr> <int>
## 1      1     plant facilitat* niche* arid*    47
## 2      2   plant facilitat* niche* desert*    32
## 3      3          nurse plant* niche* arid    16
## 4      4        nurse plant* niche* desert    11
## 5      5 positive interact* niche* desert*    21
## 6      6   positive interact* niche* arid*    29

totals <- sum(total.lit$hits)
final.list <- 53
totals-final.list

## [1] 103

#PRISMA####
#use 'prisma' function from PRISMAstatement 
#https://cran.r-project.org/web/packages/PRISMAstatement/vignettes/PRISMA.html
prisma.report <-read_csv("data/prisma.csv")
prisma.report

## # A tibble: 53 × 4
##       ID inclusion category
##    <int>     <chr>    <chr>
## 1      1         N     <NA>
## 2      2         Y     <NA>
## 3      3         Y     <NA>
## 4      4         N     <NA>
## 5      5         Y     <NA>
## 6      6         N     <NA>
## 7      7         N     <NA>
## 8      8         N     <NA>
## 9      9         Y     <NA>
## 10    10         Y     <NA>
## # ... with 43 more rows, and 1 more variables: detailed.reason <chr>

excluded <- prisma.report %>% filter(inclusion == "N")
dim(excluded)

## [1] 24  4

library(PRISMAstatement)

prisma(found = 153,
       found_other = 0,
       no_dupes = 53, 
       screened = 53, 
       screen_exclusions = 24, 
       full_text = 29,
       full_text_exclusions = 0, 
       qualitative = 0, 
       quantitative = 29,
       width = 800, height = 800)